home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Mark Pilgrim / Lose Your Marbles! 1.0 / source / Shell ƒ / environment.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-10-30  |  5.3 KB  |  142 lines  |  [TEXT/KAHL]
  1. /**********************************************************************\
  2.  
  3. File:        environment.c
  4.  
  5. Purpose:    This module handles initializing the environment and
  6.             checking for various environmental characteristics.
  7.  
  8. This program is free software; you can redistribute it and/or modify
  9. it under the terms of the GNU General Public License as published by
  10. the Free Software Foundation; either version 2 of the License, or
  11. (at your option) any later version.
  12.  
  13. This program is distributed in the hope that it will be useful,
  14. but WITHOUT ANY WARRANTY; without even the implied warranty of
  15. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16. GNU General Public License for more details.
  17.  
  18. You should have received a copy of the GNU General Public License
  19. along with this program in a file named "GNU General Public License".
  20. If not, write to the Free Software Foundation, 675 Mass Ave,
  21. Cambridge, MA 02139, USA.
  22.  
  23. \**********************************************************************/
  24.  
  25. #include "environment.h"
  26. #include "apple events.h"
  27. #include "error.h"
  28. #include "program globals.h"
  29. #include "GestaltEqu.h"
  30. #include "Traps.h"
  31.  
  32. Boolean            gHasColorQD;                /* color Quickdraw present? */
  33. Boolean            gHasAppleEvents;            /* apple events supported? */
  34. Boolean            gHasFSSpecs;                /* FSSpec calls supported? */
  35. Boolean            gStandardFile58;            /* standard file package supported? */
  36. Boolean            gHasPowerManager;            /* power manager present? (cf progress.c) */
  37. Boolean            gHasNotificationManager;    /* notification manager present? (cf error.c) */
  38. Boolean            gSystemSevenOrLater;        /* system 7 running? */
  39. Boolean            gWaitNextEventAvailable;    /* WaitNextEvent() implemented? */
  40. Boolean            gHasGestalt;                /* Gestalt() implemented? */
  41.  
  42. short            gForegroundWaitTime;        /* WaitNextEvent sleep time while in frgrnd */
  43. short            gBackgroundWaitTime;        /* WaitNextEvent sleep time while in bkgrnd */
  44. Boolean            gIsInBackground;            /* program is in background currently? */
  45. Boolean            gInProgress;                /* progress bar up? */
  46. Boolean            gDone;                        /* program done? */
  47. Boolean            gFrontWindowIsOurs;            /* frontmost window is one of ours? */
  48. short            gFrontWindowIndex;            /* gTheWindowData[] index of front window, if ours */
  49. Boolean            gIsVirgin;                    /* first time running? */
  50.  
  51. /* This is to stop the compiler from using Gestalt glue without killing
  52.    all the other pre-system 7 glue for other routines. */
  53. #pragma parameter __D0 RealGestalt(__D0,__A1)
  54. pascal OSErr RealGestalt(OSType selector,long *response) = {0xA1AD,0x2288};
  55. #define        Gestalt            RealGestalt
  56. #define        GESTALT_TRAP    0xA1AD            /* _Gestalt */
  57.  
  58. #define    GetTrapType(T)    (((T & 0x0800) > 0) ? ToolTrap : OSTrap)
  59. #define NumToolboxTraps()    ((NGetTrapAddress(_InitGraf, ToolTrap) ==    \
  60.                             NGetTrapAddress(0xAA6E, ToolTrap)) ? 0x0200    \
  61.                             : 0x0400)
  62.  
  63. Boolean TrapAvailable(short theTrap);
  64.  
  65. Boolean TrapAvailable(short theTrap)
  66. {
  67.     TrapType        tType;
  68.     
  69.     tType=GetTrapType(theTrap);
  70.     if (tType==ToolTrap)
  71.     {
  72.         theTrap=theTrap&0x07FF;
  73.         if (theTrap>=NumToolboxTraps())
  74.             theTrap=_Unimplemented;
  75.     }
  76.     return (NGetTrapAddress(theTrap, tType)!=NGetTrapAddress(_Unimplemented, ToolTrap));
  77. }
  78.  
  79. Boolean InitTheEnvironment(void)
  80. /* called very early -- this uses Gestalt to check out the computing environment;
  81.    see above for explanations of variables */
  82. {
  83.     long            gestalt_temp;
  84.     OSErr            isHuman;
  85.     SysEnvRec        theWorld;
  86.     
  87.     if (SysEnvirons(1, &theWorld)==envNotPresent)
  88.         return FALSE;
  89.     
  90.     gWaitNextEventAvailable=TrapAvailable(_WaitNextEvent);
  91.     gHasGestalt=TrapAvailable((short)GESTALT_TRAP);
  92.  
  93.     if (gHasGestalt)
  94.     {
  95.         isHuman=Gestalt(gestaltSystemVersion, &gestalt_temp);
  96.         gSystemSevenOrLater=!(isHuman || (gestalt_temp < 1792));
  97.         
  98.         isHuman=Gestalt(gestaltQuickdrawVersion, &gestalt_temp);
  99.         gHasColorQD=!(isHuman || (gestalt_temp < gestalt8BitQD));
  100.     
  101.         isHuman=Gestalt(gestaltFSAttr, &gestalt_temp);
  102.         gHasFSSpecs=((isHuman==noErr) && (gestalt_temp&(1<<gestaltHasFSSpecCalls)));
  103.     
  104.         isHuman=Gestalt(gestaltStandardFileAttr, &gestalt_temp);
  105.         gStandardFile58=((isHuman==noErr) && (gestalt_temp&(1<<gestaltStandardFile58)));
  106.     
  107.         isHuman=Gestalt(gestaltPowerMgrAttr, &gestalt_temp);
  108.         gHasPowerManager=((!isHuman) && (gestalt_temp&(1<<gestaltPMgrCPUIdle)));
  109.         
  110.         isHuman=Gestalt(gestaltNotificationMgrAttr, &gestalt_temp);
  111.         gHasNotificationManager=(!((isHuman) ||
  112.             (((gestalt_temp >> gestaltNotificationPresent) & 0x01) != 1)));
  113.         
  114.         isHuman=Gestalt(gestaltAppleEventsAttr, &gestalt_temp);
  115.         gHasAppleEvents=((!isHuman) && (gestalt_temp&(1<<gestaltAppleEventsPresent)));
  116.     }
  117.     else
  118.     {
  119.         gHasColorQD=theWorld.hasColorQD;
  120.         gSystemSevenOrLater=(theWorld.systemVersion>=1792);
  121.         gHasFSSpecs=TrapAvailable(_HFSPinaforeDispatch);
  122.         gStandardFile58=gSystemSevenOrLater;
  123.         gHasPowerManager=TrapAvailable(0xA285);    /* _IdleUpdate */
  124.         gHasNotificationManager=TrapAvailable(_NMInstall);
  125.         gHasAppleEvents=TrapAvailable(_Pack8);
  126.     }
  127.     
  128.     if (gHasAppleEvents)
  129.         SetUpAppleEvents();        /* see apple events.c */
  130.     
  131.     gForegroundWaitTime=30;            /* WaitNextEvent sleep time when we're in frgrnd */
  132.     gBackgroundWaitTime=100;        /* WaitNextEvent sleep time when we're in bkgrnd */
  133.     gDone=FALSE;                    /* TRUE if program is done (exit event loop) */
  134.     gInProgress=FALSE;                /* TRUE if progress bar is up */
  135.     gIsInBackground=FALSE;            /* TRUE if program is in background */
  136.     gPendingResultCode=allsWell;    /* set to error code if error occurs while in bkgrnd */
  137.     gFrontWindowIsOurs=FALSE;
  138.     gFrontWindowIndex=0;
  139.     
  140.     return TRUE;
  141. }
  142.